.DO External 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Modu I e : Excep t i on Hand I i ng 
> 

> PROCEDURE: Abort 

> PROCEDURE: Status _£a II 

> PROCEDURE: Reset-StMach 
> 
>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIH 

.DO Externa! 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure: Rbort 
> 

> This procedure is the 'garbage-collector' for this set of 

> firmware. Rbort is the place where all routines 'goto' if 

> things get so screwed up that they can no longer cope. 
> 

> Inputs: { none; address of caller on stack } 
> 

> Outputs: { none > 

> fl 1 gor i thro : 
> 

> BEGIN 

> Excep tJS tat. Recovery := False 

> DiskS tat. Parked := False 

> DiskS tat. On_Track := False 

> Clr_BankSwitch 

> Set_RaisBank( RamO > 

> Registers IrE and IrF get address of caller 

> FOR i := TO $F DO 

> RbortJStaU i ] := RegisterE Rp+i J 

> I n ? 1 1 a I s ze i n terna f and ex ter na I s tacks 

> ZeroBlock< Readfirray ) 

> I n i t i a I i ze Mr i te JBuf f er Fence 

> SetStatus< Rbort ? 

> GoTo RdLeaue 

> END 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

. Page 

.FIN 



Abort : 



Di 



Pop !rE j remember who called us 

Pop IrF 

Push Rp ;save context 

Srp *WrkJScr 



Cai i 



eir_BankSw)tch 



fiber t_Lp1 



Pop 
Ld 
Ld 
Ld 

Ldei 
Djnz 

Srp 
Clr 
Ld 

Call 

Cal i 



!r0 ;get cal ler's context from stack 
!r1,*16 ;load 15 locations 
!rE,*.HIBVTE. flbor t_Stat 
! rF , * . LOWBVTE . flbor t JS tat 

e!!rE,9!rQ 
\ rl, flbor t_Lp1 

*WrkJSys 

Sph ; clean up the stack 

Sp I ^Stack-Top 

ExtStk_Uector 

ZrRd_Uector 



RbtJStat_Ld: 



Ld !rE,*.HIBVTE. WBIkFence ; re-write the write block fence 

Ld !rF>. LOWBVTE. WBIkFence' 

Cal I LdPuiJJector 

Tm DiskStat,#MultiBlk 

Jr Z,flbt_Stat_Ld 

Ca 1 1 UpDa te_Log i ca I 

Call SS_Rbort 



Tro Port2,*Bsy ; check if BSV is set 

Jp Nz,RdL_Uector 

Srp *Wrk_lo 

Ld ! rfl , * I n i t_Response 

Ld !rB,*00 

Jp ClrJBsyl 



UpBate_Logical 



UpB_Lgcl_Lp: 



Cal I LL_Uector 

Add !rE, !r5 

fide !rD,*0 

fide !rC,*0 

Ld !rO,*Wrk_J5ys+$C 

Ld !r1,#3 

Ld !r2>.HIBVTE. LogicalBlock 

Ld !r3,«. LOWBVTE. LogicalBlock 

Ldei §!!r2,e!r0 

D j nz ! r 1 , UpD J_gc I J_p 

find B i skStat, *$FF-Mu 1 1 i B I k 
Ret 



.LSTOFF 

.DO External 

.LSTOH 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> ProcedureSet: SetStatusJCalls 
> 

> These are a few of the more commonly used SetStatus routines: 



SS_flbort: SetStatusC Abort ) 

Se tS t a tus < Opera t i onFa i i ed > 

SSJOpFail: SetStatusC Opera tionFai led > 

SS_ReadErr: SetStatusC ReadErrCount ) 

SS_HoHdr: SetStatusC HoHeaderFound > 

SS_SprMarn: SetStatus< SprBlk_Warn > 



.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

.Page 

.FIN 



SS_flbort: 

SS JDpFa i I : 
SS_Set: 



Ld 

Ld 

Call 

Ld 

Ld 

Call 

Ret 



!rO,*l ;byte 1 

!r1,*Stat_flbort 

SetStatus 

!r0,#0 ;byte 

!ri,*Op_Failed 

SetStatus 



SS_RdCnt: 



Ld !rG,*3 ;byte 3 
Ld Irl.RdErrCnt 
Jr SS_Set 



3S_ReadErr: Ld !rO.«0 ;byte 

Ld !r1>StatlRd_Err 

Call SetStatus 

Ld !rG,*3 

Ld !r1,Rd£rrCnt 

Jr SSjSet 

SS_NoHdr: Ld !rO,*G ;byte 

Ld !r1,*Stat_NoHdr 

Jr SSJSet 

SS JSprWar n : Ld ! rO , * 1 ■ ; by te 1 

Ld !r1,«SprBlk_Uarn 

Jr SS_Set 



;> 
;> 
;> 

; > 

; > 

;> 

• > 



.LSTOFF 

.DO External 
.LSTON 
.Page 
■ >>>>>>>>>>>>>>>>>>>>>>>>>>>>> > > 

Procedure: ResetJStllach 

This routine is used in the case where the state machine 
ended abnormally { i.e., it ended in a state other than it's 
normal 'end-state' }. The assumption is made that the drive 
clock is not available and that the control ler must supply 
a signal in it's place in order for the state machine to 
reset. 

Inputs: { none } 



Outputs: { none } 

Algorithm: 

BEGIN 
ZSTestL := True 
FOR j := 16 DOUNTO DO 
Zrwck := True 
Zrwck := False 
ZSTestL := False 
END 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Interna! 
.LSTON 
.Page 
.FIN 



Reset_Stl1ach: 



Res^StH_Lp: 



I nt_Uers i on : 



Push Rp ;save context 

Srp *Urk_io 

find !PortG,*$FF-Not_ZTestL ; asset ZSTestL 

Ld !rE,*16 ;i := 16 

Or ! Ports, *Zrwck ;set clock 

find !Port3,*$FF-Zrwck ;clear clock 

Dj nz ?rE,Res_StH_Lp 

Or !PortO,*ZTestL ;deassert ZSTestL 

Or !PortQ,*Zruick ;set clock 

Pop Rp 
Ret 

.LSTOFF 

.DO Internal 

.LSTON 

.DB $00, $00 

.LSTOFF 



